 Ellipse ()    ( Graph)
 --------------------------------------
  .

 :
 Procedure Ellipse(X, Y : Integer; StAngle, EndAngle : Word;
                                    XRadius, YRadius : Word);

 :
Real, Protected

 :
     StAngle    EndAngle, 
 XRadius  YRadius,   ,   X  Y, 
 .

 :
    .

  :
 Arc
 Circle
 GetArcCoords
 GetAspectRatio
 PieSlice

 :
 Ellipse.PAS



 {Ellipse.PAS}
--------------
{     Ellipse }

Uses Graph;

Var Gd, Gm : Integer;

Begin
 Gd:=Detect;
 InitGraph(Gd, Gm, 'C:\BP\BGI'); {   BGI  }
 If GraphResult <> grOk Then Halt(1);
 Ellipse(100, 100, 0, 360, 30, 50);
 Ellipse(100, 100, 0, 180, 50, 30);
 ReadLn;
 CloseGraph;
End.
